home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / icon / packages.lha / packages / atari / ats.arc / STAND.ARC / FNCS.OUT < prev    next >
Text File  |  1990-03-28  |  8KB  |  503 lines
  1.  ----> &null
  2. copy(1) ----> 1
  3. copy("abc") ----> "abc"
  4. copy('aabbcc') ----> 'abc'
  5. copy(main) ----> procedure main
  6. copy([1,2,3]) ----> list_3(3)
  7. copy(table(0)) ----> table_2(0)
  8. copy() ----> &null
  9. copy(&input) ----> &input
  10. w := copy(write) ----> function write
  11. function write
  12. w(image(w)) ----> "function write"
  13. copy(array()) ----> record array_2(7)
  14. copy := copy(copy) ----> function copy
  15. x := copy(array) ----> record constructor array
  16. x := x(1,2,3,4,5,6,7) ----> record array_3(7)
  17. x[-4] ----> 4
  18. v := copy(c) ----> &null
  19. x := repl("123",4) ----> "123123123123"
  20. co-expression_1(1)
  21.  
  22. p2 local identifiers:
  23.    x = "123123123123"
  24.    v = &null
  25.    c = &null
  26.    i = &null
  27. main local identifiers:
  28.  
  29. global identifiers:
  30.    main = procedure main
  31.    array = record constructor array
  32.    p1 = procedure p1
  33.    p2 = procedure p2
  34.    p3 = procedure p3
  35.    p4 = procedure p4
  36.    p5 = procedure p5
  37.    p6 = procedure p6
  38.    p7 = procedure p7
  39.    p8 = procedure p8
  40.    p9 = procedure p9
  41.    p10 = procedure p10
  42.    p11 = procedure p11
  43.    p12 = procedure p12
  44.    p13 = procedure p13
  45.    p14 = procedure p14
  46.    w = function write
  47.    t = &null
  48.    write = function write
  49.    image = function image
  50.    copy = function copy
  51.    table = function table
  52.    repl = function repl
  53.    display = function display
  54.    sort = function sort
  55.    center = function center
  56.    left = function left
  57.    right = function right
  58.    trim = function trim
  59.    list = function list
  60.    set = function set
  61.    string = function string
  62.    type = function type
  63.    cset = function cset
  64.    seq = function seq
  65. display(,&output) ----> &null
  66. t := table() ----> table_3(0)
  67. every i := 1 to 100 do t[i] := i ----> none
  68. x := sort(t) ----> list_4(100)
  69. 1
  70. 2
  71. 3
  72. 4
  73. 5
  74. 6
  75. 7
  76. 8
  77. 9
  78. 10
  79. 11
  80. 12
  81. 13
  82. 14
  83. 15
  84. 16
  85. 17
  86. 18
  87. 19
  88. 20
  89. 21
  90. 22
  91. 23
  92. 24
  93. 25
  94. 26
  95. 27
  96. 28
  97. 29
  98. 30
  99. 31
  100. 32
  101. 33
  102. 34
  103. 35
  104. 36
  105. 37
  106. 38
  107. 39
  108. 40
  109. 41
  110. 42
  111. 43
  112. 44
  113. 45
  114. 46
  115. 47
  116. 48
  117. 49
  118. 50
  119. 51
  120. 52
  121. 53
  122. 54
  123. 55
  124. 56
  125. 57
  126. 58
  127. 59
  128. 60
  129. 61
  130. 62
  131. 63
  132. 64
  133. 65
  134. 66
  135. 67
  136. 68
  137. 69
  138. 70
  139. 71
  140. 72
  141. 73
  142. 74
  143. 75
  144. 76
  145. 77
  146. 78
  147. 79
  148. 80
  149. 81
  150. 82
  151. 83
  152. 84
  153. 85
  154. 86
  155. 87
  156. 88
  157. 89
  158. 90
  159. 91
  160. 92
  161. 93
  162. 94
  163. 95
  164. 96
  165. 97
  166. 98
  167. 99
  168. 100
  169. every write((!x)[2]) ----> none
  170. d
  171. d
  172. d
  173. cd
  174. cd
  175. cd
  176. cde
  177. cde
  178. cde
  179. bcde
  180. bcde
  181. bcde
  182. bcdef
  183. bcdef
  184. bcdef
  185. abcdef
  186. abcdef
  187. abcdef
  188. abcdef 
  189. abcdef0
  190. abcdef-
  191.  abcdef 
  192. 0abcdef0
  193. =abcdef-
  194.  abcdef  
  195. 0abcdef00
  196. =abcdef=-
  197.   abcdef  
  198. 00abcdef00
  199. =-abcdef=-
  200.   abcdef   
  201. 00abcdef000
  202. =-abcdef-=-
  203.    abcdef   
  204. 000abcdef000
  205. =-=abcdef-=-
  206.    abcdef    
  207. 000abcdef0000
  208. =-=abcdef=-=-
  209.     abcdef    
  210. 0000abcdef0000
  211. =-=-abcdef=-=-
  212.     abcdef     
  213. 0000abcdef00000
  214. =-=-abcdef-=-=-
  215.      abcdef     
  216. 00000abcdef00000
  217. =-=-=abcdef-=-=-
  218.      abcdef      
  219. 00000abcdef000000
  220. =-=-=abcdef=-=-=-
  221.       abcdef      
  222. 000000abcdef000000
  223. =-=-=-abcdef=-=-=-
  224.       abcdef       
  225. 000000abcdef0000000
  226. =-=-=-abcdef-=-=-=-
  227.        abcdef       
  228. 0000000abcdef0000000
  229. =-=-=-=abcdef-=-=-=-
  230. every write(center("abcdef",1 to 20," " | "0" | "=-")) ----> none
  231. a
  232. a
  233. a
  234. ab
  235. ab
  236. ab
  237. abc
  238. abc
  239. abc
  240. abcd
  241. abcd
  242. abcd
  243. abcde
  244. abcde
  245. abcde
  246. abcdef
  247. abcdef
  248. abcdef
  249. abcdef 
  250. abcdef0
  251. abcdef-
  252. abcdef  
  253. abcdef00
  254. abcdef=-
  255. abcdef   
  256. abcdef000
  257. abcdef-=-
  258. abcdef    
  259. abcdef0000
  260. abcdef=-=-
  261. abcdef     
  262. abcdef00000
  263. abcdef-=-=-
  264. abcdef      
  265. abcdef000000
  266. abcdef=-=-=-
  267. abcdef       
  268. abcdef0000000
  269. abcdef-=-=-=-
  270. abcdef        
  271. abcdef00000000
  272. abcdef=-=-=-=-
  273. abcdef         
  274. abcdef000000000
  275. abcdef-=-=-=-=-
  276. abcdef          
  277. abcdef0000000000
  278. abcdef=-=-=-=-=-
  279. abcdef           
  280. abcdef00000000000
  281. abcdef-=-=-=-=-=-
  282. abcdef            
  283. abcdef000000000000
  284. abcdef=-=-=-=-=-=-
  285. abcdef             
  286. abcdef0000000000000
  287. abcdef-=-=-=-=-=-=-
  288. abcdef              
  289. abcdef00000000000000
  290. abcdef=-=-=-=-=-=-=-
  291. every write(left("abcdef",1 to 20," " | "0" | "=-")) ----> none
  292. f
  293. f
  294. f
  295. ef
  296. ef
  297. ef
  298. def
  299. def
  300. def
  301. cdef
  302. cdef
  303. cdef
  304. bcdef
  305. bcdef
  306. bcdef
  307. abcdef
  308. abcdef
  309. abcdef
  310.  abcdef
  311. 0abcdef
  312. =abcdef
  313.   abcdef
  314. 00abcdef
  315. =-abcdef
  316.    abcdef
  317. 000abcdef
  318. =-=abcdef
  319.     abcdef
  320. 0000abcdef
  321. =-=-abcdef
  322.      abcdef
  323. 00000abcdef
  324. =-=-=abcdef
  325.       abcdef
  326. 000000abcdef
  327. =-=-=-abcdef
  328.        abcdef
  329. 0000000abcdef
  330. =-=-=-=abcdef
  331.         abcdef
  332. 00000000abcdef
  333. =-=-=-=-abcdef
  334.          abcdef
  335. 000000000abcdef
  336. =-=-=-=-=abcdef
  337.           abcdef
  338. 0000000000abcdef
  339. =-=-=-=-=-abcdef
  340.            abcdef
  341. 00000000000abcdef
  342. =-=-=-=-=-=abcdef
  343.             abcdef
  344. 000000000000abcdef
  345. =-=-=-=-=-=-abcdef
  346.              abcdef
  347. 0000000000000abcdef
  348. =-=-=-=-=-=-=abcdef
  349.               abcdef
  350. 00000000000000abcdef
  351. =-=-=-=-=-=-=-abcdef
  352. every write(right("abcdef",1 to 20," " | "0" | "=-")) ----> none
  353. center("",20,repl("x.",30)) ----> "x.x.x.x.x.x.x.x.x.x."
  354. left("",20,repl("x.",30)) ----> "x.x.x.x.x.x.x.x.x.x."
  355. right("",20,repl("x.",30)) ----> "x.x.x.x.x.x.x.x.x.x."
  356. a
  357. aa
  358. aaa
  359. aaaa
  360. aaaaa
  361. ab
  362. abab
  363. ababab
  364. abababab
  365. ababababab
  366. ba
  367. baba
  368. bababa
  369. babababa
  370. bababababa
  371. every write(repl("a" | "ab" | "ba",1 to 5)) ----> none
  372. repl("",0) ----> ""
  373. repl(&cset,0) ----> ""
  374. trim(&lcase) ----> "abcdefghijklmnopqrstuvwxyz"
  375. trim(&lcase,&lcase) ----> ""
  376. image(2) ----> "2"
  377. image('cab') ----> "'abc'"
  378. image(&lcase) ----> "&lcase"
  379. image('abcdefghijklmnopqrstuvwxyz') ----> "'abcdefghijklmnopqrstuvwxyz'"
  380. image(&input) ----> "&input"
  381. image() ----> "&null"
  382. image(&null) ----> "&null"
  383. image([1,2,3]) ----> "list_105(3)"
  384. image([]) ----> "list_106(0)"
  385. image([,]) ----> "list_107(2)"
  386. image(table()) ----> "table_4(0)"
  387. image(table(3)) ----> "table_5(0)"
  388. image(list(0)) ----> "list_108(0)"
  389. image(set()) ----> "set_1(0)"
  390. image(set([1,2,3,3,3,3,3,4])) ----> "set_2(4)"
  391. image(repl) ----> "function repl"
  392. image(main) ----> "procedure main"
  393. image(repl(&lcase,10)) ----> "\"abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz\""
  394. image(array) ----> "record constructor array"
  395. image(a) ----> "&null"
  396. image(array) ----> "record constructor array"
  397. image(image) ----> "function image"
  398. string(2) ----> "2"
  399. string("2") ----> "2"
  400. string(" 2") ----> " 2"
  401. string("2 ") ----> "2 "
  402. string("+2") ----> "+2"
  403. string("-2") ----> "-2"
  404. string("- 2") ----> "- 2"
  405. string(" -    2 ") ----> " -    2 "
  406. string("") ----> ""
  407. string("--2") ----> "--2"
  408. string(" ") ----> " "
  409. string("-") ----> "-"
  410. string("+") ----> "+"
  411. string("22222222222222222222222222222222222222222222222222222222222") ----> "22222222222222222222222222222222222222222222222222222222222"
  412. string("7r4") ----> "7r4"
  413. string("4r7") ----> "4r7"
  414. string("4r 7") ----> "4r 7"
  415. string("7r 4") ----> "7r 4"
  416. string("16rff") ----> "16rff"
  417. string("36rcat") ----> "36rcat"
  418. string("36Rcat") ----> "36Rcat"
  419. string("36rCAT") ----> "36rCAT"
  420. string("1r1") ----> "1r1"
  421. string("2r0") ----> "2r0"
  422. type(0) ----> "integer"
  423. type("abc") ----> "string"
  424. type('aba') ----> "cset"
  425. type() ----> "null"
  426. type(&null) ----> "null"
  427. type(&errout) ----> "file"
  428. type([]) ----> "list"
  429. type(table()) ----> "table"
  430. type(main) ----> "procedure"
  431. type(write) ----> "procedure"
  432. type(array()) ----> "array"
  433. type(array) ----> "procedure"
  434. type(f) ----> "null"
  435. cset(2) ----> '2'
  436. cset("2") ----> '2'
  437. cset(" 2") ----> ' 2'
  438. cset("2 ") ----> ' 2'
  439. cset("+2") ----> '+2'
  440. cset("-2") ----> '-2'
  441. cset("- 2") ----> ' -2'
  442. cset(" -    2 ") ----> ' -2'
  443. cset("") ----> ''
  444. cset("--2") ----> '-2'
  445. cset(" ") ----> ' '
  446. cset("-") ----> '-'
  447. cset("+") ----> '+'
  448. cset("22222222222222222222222222222222222222222222222222222222222") ----> '2'
  449. cset("7r4") ----> '47r'
  450. cset("4r7") ----> '47r'
  451. cset("4r 7") ----> ' 47r'
  452. cset("7r 4") ----> ' 47r'
  453. cset("16rff") ----> '16fr'
  454. cset("36rcat") ----> '36acrt'
  455. cset("36Rcat") ----> '36Ract'
  456. cset("36rCAT") ----> '36ACTr'
  457. cset("1r1") ----> '1r'
  458. cset("2r0") ----> '02r'
  459. 1
  460. 2
  461. 3
  462. 4
  463. 5
  464. 6
  465. 7
  466. 8
  467. 9
  468. 10
  469. every write(seq()) \ 10 ----> none
  470. 2
  471. 3
  472. 4
  473. 5
  474. 6
  475. 7
  476. 8
  477. 9
  478. 10
  479. 11
  480. every write(seq(2)) \ 10 ----> none
  481. -10
  482. -9
  483. -8
  484. -7
  485. -6
  486. -5
  487. -4
  488. -3
  489. -2
  490. -1
  491. every write(seq(-10)) \ 10 ----> none
  492. 1
  493. 4
  494. 7
  495. 10
  496. 13
  497. 16
  498. 19
  499. 22
  500. 25
  501. 28
  502. every write(seq(,3)) \ 10 ----> none
  503.